home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / basic / DLL.lha / DLL / Compare_Strings_S.bb2 < prev    next >
Unknown  |  2000-08-23  |  517 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 09 2e 77 20 43 4f 4d | 50 41 52 45 5f 53 54 52 |...w COM|PARE_STR|
|00000010| 49 4e 47 53 7b 2a 73 31 | 2c 2a 73 32 7d 00 2e 41 |INGS{*s1|,*s2}..A|
|00000020| 53 4d 5f 73 74 72 63 6d | 70 00 20 20 20 20 20 20 |SM_strcm|p.      |
|00000030| 20 20 80 80 2e 6c 20 64 | 30 2c 61 30 00 20 20 20 |  ...l d|0,a0.   |
|00000040| 20 20 20 20 20 80 80 2e | 6c 20 64 31 2c 61 31 00 |     ...|l d1,a1.|
|00000050| 00 27 66 65 74 63 68 3a | 20 80 7e 2e 62 20 20 28 |.'fetch:| .~.b  (|
|00000060| 61 31 29 2b 2c 64 31 00 | 20 20 20 20 20 20 20 20 |a1)+,d1.|        |
|00000070| 80 7e 2e 62 20 20 28 61 | 30 29 2b 2c 64 30 00 00 |.~.b  (a|0)+,d0..|
|00000080| 20 20 20 20 20 20 20 20 | 80 48 20 20 20 20 20 27 |        |.H     '|
|00000090| 65 78 69 74 20 20 20 20 | 20 20 20 3b 20 63 68 65 |exit    |   ; che|
|000000a0| 63 6b 20 69 66 20 6c 65 | 74 74 65 72 20 69 73 20 |ck if le|tter is |
|000000b0| 6e 75 6c 6c 20 74 65 72 | 6d 69 6e 61 74 6f 72 00 |null ter|minator.|
|000000c0| 00 20 20 20 20 20 20 20 | 20 80 5c 2e 62 20 20 20 |.       | .\.b   |
|000000d0| 64 30 2c 64 31 20 20 20 | 20 20 20 20 3b 20 63 68 |d0,d1   |    ; ch|
|000000e0| 65 63 6b 20 69 66 20 6c | 65 74 74 65 72 73 20 61 |eck if l|etters a|
|000000f0| 72 65 20 73 61 6d 65 00 | 20 20 20 20 20 20 20 20 |re same.|        |
|00000100| 80 48 20 20 20 20 20 27 | 66 65 74 63 68 20 20 20 |.H     '|fetch   |
|00000110| 20 20 20 3b 20 69 66 20 | 74 68 65 79 20 61 72 65 |   ; if |they are|
|00000120| 2c 20 6d 6f 76 65 20 6f | 6e 74 6f 20 6e 65 78 74 |, move o|nto next|
|00000130| 20 6b 6c 65 74 74 65 72 | 00 00 27 65 78 69 74 3a | kletter|..'exit:|
|00000140| 20 20 80 43 2e 77 20 20 | 23 24 30 30 46 46 2c 64 |  .C.w  |#$00FF,d|
|00000150| 30 20 20 20 3b 20 6d 61 | 6b 65 20 73 75 72 65 20 |0   ; ma|ke sure |
|00000160| 74 68 61 74 20 74 6f 70 | 20 62 79 74 65 20 6f 66 |that top| byte of|
|00000170| 20 77 6f 72 64 20 69 73 | 20 63 6c 65 61 72 00 20 | word is| clear. |
|00000180| 20 20 20 20 20 20 20 80 | 43 2e 77 20 20 23 24 30 |       .|C.w  #$0|
|00000190| 30 46 46 2c 64 31 20 20 | 20 3b 20 6d 61 6b 65 20 |0FF,d1  | ; make |
|000001a0| 73 75 72 65 20 74 68 61 | 74 20 74 6f 70 20 62 79 |sure tha|t top by|
|000001b0| 74 65 20 6f 66 20 77 6f | 72 64 20 69 73 20 63 6c |te of wo|rd is cl|
|000001c0| 65 61 72 00 20 20 20 20 | 20 20 20 20 80 a7 2e 77 |ear.    |    ...w|
|000001d0| 20 20 20 64 31 2c 64 30 | 20 20 20 20 20 20 20 3b |   d1,d0|       ;|
|000001e0| 20 67 65 74 20 72 65 74 | 75 72 6e 20 72 65 73 75 | get ret|urn resu|
|000001f0| 6c 74 00 20 20 20 20 20 | 20 20 20 80 11 00 80 02 |lt.     |   .....|
|00000200| 20 80 09 00 00          |                         | ....   |        |
+--------+-------------------------+-------------------------+--------+--------+